home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / qpopper_euidl.nasl < prev    next >
Encoding:
Text File  |  2005-01-14  |  2.2 KB  |  88 lines
  1. #
  2. # This script was written by Renaud Deraison <deraison@cvs.nessus.org>
  3. #
  4. # See the Nessus Scripts License for details
  5. #
  6.  
  7. if(description)
  8. {
  9.  script_id(10423);
  10.  script_bugtraq_id(1133);
  11.  script_version ("$Revision: 1.15 $");
  12.  script_cve_id("CVE-2000-0320");
  13.  
  14.  name["english"] = "qpopper euidl problem";
  15.  name["francais"] = "qpopper euild";
  16.  
  17.  script_name(english:name["english"],
  18.           francais:name["francais"]);
  19.  
  20.  desc["english"] = "
  21. You are using qpopper 2.53 (or newer in the 2.5x series) or 3.0.
  22.  
  23. There is a problem in this server which allows users who have a 
  24. pop account to gain a shell with the gid 'mail' by sending to 
  25. themselves a specially crafted mail.
  26.  
  27.  
  28. Solution : Upgrade to the latest qpopper software
  29. Risk factor : Medium";
  30.  
  31.  desc["francais"] = "
  32. Vous utilisez qpopper 2.53 (ou plus rΘcent dans la sΘrie
  33. des 2.5x)
  34.  
  35. Il y a un problΦme avec ce serveur POP qui permet
  36. α un utilisateur ayant un compte pop valide d'obtenir
  37. un shell avec le gid 'mail' en s'envoyant un message
  38. spΘcialement formΘ.
  39.  
  40. Solution : mettez votre serveur α jour en 3.0.2
  41. Facteur de risque : Moyen";
  42.  
  43.  script_description(english:desc["english"],
  44.              francais:desc["francais"]);
  45.  
  46.  summary["english"] = "checks for the version of qpopper";
  47.  summary["francais"] = "vΘrifie la version de qpopper";
  48.  script_summary(english:summary["english"],
  49.          francais:summary["francais"]);
  50.  
  51.  script_category(ACT_GATHER_INFO);
  52.  
  53.  
  54.  script_copyright(english:"This script is Copyright (C) 2000 Renaud Deraison",
  55.            francais:"Ce script est Copyright (C) 2000 Renaud Deraison");
  56.  
  57.  family["english"] = "Gain a shell remotely";
  58.  family["francais"] = "Obtenir un shell α distance";
  59.  script_family(english:family["english"],
  60.            francais:family["francais"]); 
  61.  script_dependencie("find_service.nes");
  62.                             
  63.  script_require_ports("Services/pop3", 110);
  64.  exit(0);
  65. }
  66.  
  67.  
  68. port = get_kb_item("Services/pop3");
  69. if(!port)port = 110;
  70.  
  71. if(get_port_state(port))
  72. {
  73.  
  74.  soc = open_sock_tcp(port);
  75.  if(!soc)exit(0);
  76.  b = recv_line(socket:soc, length:1024);
  77.  if(!strlen(b)){
  78.      close(soc);
  79.     exit(0);
  80.     }
  81.  close(soc);    
  82.  if(ereg(pattern:"^\+OK QPOP \(version (2\.((5[3-9]+)|([6-9][0-9]+))\)|3\.0).*$",
  83.       string:b))
  84.       security_warning(port);
  85.       
  86. }
  87.  
  88.